POINT Software Programming/PPROG1.ISO/pascal/swag/memory.swg/0058_Flush Smartdrv.pas

Pascal/Delphi Source File | 1994-08-24 | 226 b | 20 lines

Uses Dos;

Procedure Flush_Cache;
{ This will work with SmartDrive 4.00+ and PC-Cache 8.0+. }

Var Reg: Registers;

Begin
  Reg.AX:=$4A10;
  Reg.BX:=$0001;
  Intr($2F,Reg);
End;

BEGIN
Flush_Cache;
END.